Amiga Format CD 52/Amiga Format AFCD52 (Issue 136, May 2000).iso/-in_the_mag-/pdselect/wbstartup+/install

Text File | 2000-03-08 | 6KB | 188 lines

;
; $PROJECT: WBStartup+
;
; (C) Copyright 1996 John Hughes, 1999-2000 Simon Tyrrell.  All Rights Reserved.
;


(
  (working "Installing WBStartup+")

  (message "\n\nWBStartup+ and WBStartup+Prefs\n\nare Postcardware.\n\nIf you use either of these programs, please send a postcard of your city or country to:\n\nJohn Hughes\n901 Highview Rd.\nEast Peoria, IL 61611 USA")

  (if (exists "SYS:WBStartup/WBStartup+")
    ( ; UPGRADE PREVIOUS VERSION
      (message "\n\nA previous version of WBStartup+ has been found.  I will upgrade your version.")
    )
    ( ; INSTALL FOR THE FIRST TIME
      ; Moving the WBStartup files safely
      (
        (rename "SYS:WBStartup" "SYS:WBStartup.temp")
        (makedir "SYS:WBStartup")
        (rename "SYS:WBStartup.temp" "SYS:WBStartup/Enabled")
      )

      ; Creating Disabled Directory
      (makedir "SYS:WBStartup/Disabled")
    )
  )

      ; Copying icon
      (copyfiles
        (prompt "Copying the Enabled icon")
        (source "icons/Enabled_Icon.info")
        (dest "SYS:WBStartup")
        (newname "Enabled.info")
      )

      ; Copying icon
      (copyfiles
        (prompt "Copying the Disabled icon")
        (source "icons/Disabled_Icon.info")
        (dest "SYS:WBStartup")
        (newname "Disabled.info")
      )

      ; Copy WBStartup+, Prefs, and library for the appropriate OS version
      (if (< (/ (getversion) 65536) 39)  ;if this is OS2.x
        ; Copy WBStartup+ for OS2.x and launch.library
        (
          (copyfiles
            (prompt "Copying the WBStartup+ Executable for OS2.x")
            (help @copyfiles-help)
            (source "OS2.x/WBStartup+")
            (dest "SYS:WBStartup")
            (infos)
          )
          ; install Launcher.Library to Libs:
          (copylib
            (prompt "Copying Launcher.library")
            (help @copylib-help)
            (source "libs/launcher.library")
            (dest "libs:")
          )
        )
      )
     ; Copy WBStartup+, Prefs, and library for the appropriate OS version
      (if (< (/ (getversion "workbench.library") 65536) 44)  ;if this is OS3.5
        ; Copy WBStartup+ for OS3.5
        (
          (copyfiles
            (prompt "Copying the WBStartup+ Executable for OS3.5")
            (help @copyfiles-help)
            (source "OS3.5/WBStartup+")
            (dest "SYS:WBStartup")
            (infos)
          )

        ; Copy WBStartup+Prefs for OS3.5 users
          (copyfiles
            (prompt "Copying the WBStartup+Prefs Executable for OS3.x")
            (help @copyfiles-help)
            (source "OS3.5/WBStartup+Prefs")
            (dest "SYS:Prefs")
            (confirm)
            (infos)
          )

          (set launch
        (askbool
        (prompt "Do you want to use WBStart Library?")
        (help "If you have fileless icons to be launched, you want this installed.")
        (choices "Yes" "No")
        (default no)
      ))

          ; install DosPath.Library to Libs:
          (copylib
            (prompt "Copying DosPath.library")
            (help @copylib-help)
            (source "libs/dospath.library")
            (dest "libs:")
          )

        )


        (
          ; else, copy WBStartup+, WBStartup+Prefs, WBStart.library, and DosPath.library for OS3.x users

          ; Copy WBStartup+ for OS3.x
          (copyfiles
            (prompt "Copying the WBStartup+ Executable for OS3.x")
            (help @copyfiles-help)
            (source "OS3.x/WBStartup+")
            (dest "SYS:WBStartup")
            (infos)
          )
          ; Copy WBStartup+Prefs for OS3.x users
          (copyfiles
            (prompt "Copying the WBStartup+Prefs Executable for OS3.x")
            (help @copyfiles-help)
            (source "OS3.x/WBStartup+Prefs")
            (dest "SYS:Prefs")
            (confirm)
            (infos)
          )
          ; install WBStart.Library to Libs:
          (copylib
            (prompt "Copying WBStart.library")
            (help @copylib-help)
            (source "libs/wbstart.library")
            (dest "libs:")
          )
          ; install DosPath.Library to Libs:
          (copylib
            (prompt "Copying DosPath.library")
            (help @copylib-help)
            (source "libs/dospath.library")
            (dest "libs:")
          )
        )
      )

      ;****************************************************************
      ;Install language Catalogs

      (set def-lang 0)

      ;(complete 60) (working #lang-install-text)

      (set lang
        (askoptions
        (prompt "Which languages do want installed?")
        (help "Checkmark the languages you want installed, and click Proceed.")
        (choices "Dansk" "Deutsch" "Español" "Français" "Italiano" "Magyar" "Norsk" "Russian" "Suomi" "Svenska")
        (default def-lang)
      ))

      (set n 0)

      (while (set language (select n "dansk" "deutsch" "español" "français" "italiano" "magyar" "norsk" "russian" "suomi" "svenska" "") )
      (
        (if (IN lang n)
                (copyfiles
            (source (cat "Locale/" language ".catalog" ))
                        (dest (cat "LOCALE:catalogs/" language ))
                        (newname "WBStartup+Prefs.catalog")
                )
        )
        (set n (+ n 1))
      ))

      ;****************************************************************

      ; install AmigaGuide file
      (copyfiles
        (prompt "Copying AmigaGuide file")
        (help @copyfiles-help)
        (source "WBStartup+.guide")
        (dest "Help:")
        (confirm)
      )

        (set @default-dest "SYS:WBStartup")

      (message "\n\n If you want to use WBStart library, don't forget to set the tooltype")
)